home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TeX 1995 July
/
TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO
/
web
/
noweb
/
src
/
c
/
main.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-02-24
|
2KB
|
59 lines
#line 14 "main.nw"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
#include "notangle.h"
#include "errors.h"
#include "columns.h"
main(int argc, char **argv) {
int i;
char *rootname = "*"; /* name of the root module */
char *locformat = "";
char *Clocformat = "#line %L \"%F\"%N";
tabsize = 0; /* default for nt is not to use tabs */
for (i=1; i<argc; i++) {
#line 40 "main.nw"
if (*argv[i]=='-') {
#line 47 "main.nw"
switch (*++argv[i]) {
case 't': /* set tab size or turn off */
if (isdigit(argv[i][1]))
tabsize = atoi(argv[i]+1);
else if (argv[i][1]==0)
tabsize = 0; /* no tabs */
else
errormsg(Error, "%s: ill-formed option %s\n", argv[0], argv[i]);
break;
case 'R': /* change name of root module */
rootname = ++argv[i];
break;
case 'L': /* have a #line number format */
locformat = ++argv[i];
if (!*locformat) locformat = Clocformat;
break;
default:
errormsg(Warning, "Ignoring unknown option -%s", argv[i]);
}
#line 42 "main.nw"
} else {
#line 68 "main.nw"
errormsg(Warning,
"I can't handle arguments yet, so I'll just ignore `%s'",argv[i]);
#line 44 "main.nw"
}
#line 32 "main.nw"
}
notangle(stdin, stdout, rootname, locformat);
exit(errorlevel);
return errorlevel; /* slay warning */
}